	TEXT	exp(SB),$0
	FETOXD	a+0(FP),F0
	RTS
